Public Class LCGRandom
'[Inherits BaseRandom]
Protected Const A As Decimal = 214013
Protected Const C As Decimal = 2531011
Protected Const M As Decimal = 2 ^ 32
Protected seed As Decimal
''' <summary>
''' Crea una nuova istanza di LCGRandom
''' </summary>
Public Sub New()
'crea il seed
seed = Lowest64Bit(Now.Ticks + Now.ToBinary + Now.TimeOfDay.TotalMilliseconds + Now.TimeOfDay.TotalSeconds)
End Sub
''' <summary>
''' Crea una nuova istanza di LCGRandom
''' </summary>
Public Sub New(seed As ULong)
'imposta il seed
Me.seed = seed
End Sub
''' <summary>
''' Scarta un numero pseudo-casuale
''' </summary>
Public Overrides Sub [Next]()
'ricalcola il seed
seed = Lowest64Bit((seed * A + C) Mod M)
End Sub
''' <summary>
''' Genera un byte pseudo-casuale
''' </summary>
''' <remarks>Il numero pseudo-casuale generato è compreso tra 0 e 255</remarks>
''' <returns>Un byte pseudo-casuale</returns>
Public Overrides Function NextByte() As Byte
'imposta nextByte
NextByte = seed Mod 256
'scarta un numero
[Next]()
End Function
''' <summary>
''' Genera un numero double pseudo-casuale
''' </summary>
''' <remarks>Il numero pseudo-casuale generato ha un valore compreso tra 0.0 e 1.0</remarks>
''' <returns>Un numero double pseudo-casuale</returns>
Public Overrides Function NextDouble() As Double
'imposta nextDouble
NextDouble = seed / M
'scarta un numero
[Next]()
End Function
''' <summary>
''' Genera un numero intero pseudo-casuale
''' </summary>
''' <remarks>Il numero generato è compreso tra <see cref="Int32.MinValue">Integer.MinValue</see> e <see cref="Int32.MaxValue">Integer.MaxValue</see></remarks>
''' <returns>Un numero intero</returns>
Public Overloads Overrides Function NextInt() As Integer
'calcola nextint
NextInt = seed Mod (UInteger.MaxValue + 1) + Integer.MinValue
'scarta un numero
[Next]()
End Function
''' <summary>
''' Genera un numero intero pseudo-casuale
''' </summary>
''' <remarks>
''' Il numero generato ha un valore compreso tra
''' 0 e <paramref name="maxValue">maxValue</paramref>
''' </remarks>
''' <param name="maxValue">Massimo valore che il RNG può generare</param>
''' <returns>Un numero intero</returns>
Public Overloads Overrides Function NextInt(maxValue As Integer) As Integer
'calcola nextint
NextInt = seed Mod (maxValue + 1)
'scarta un numero
[Next]()
End Function
''' <summary>
''' Genera un numero intero pseudo-casuale
''' </summary>
''' <remarks>Il numero intero generato ha un valore compreso tra <paramref name="minValue">minValue</paramref> e <paramref name="maxValue">maxValue</paramref></remarks>
''' <param name="minValue">Il numero più piccolo che il RNG può generare</param>
''' <param name="maxValue">Il numero più grande che il RNG può generare.</param>
''' <returns>Un numero intero pseudo-casuale</returns>
Public Overloads Overrides Function NextInt(minValue As Integer, maxValue As Integer) As Integer
'calcola nextint
NextInt = (seed Mod (maxValue - minValue + 1)) + minValue
'scarta un numero
[Next]()
End Function
''' <summary>
''' Genera un numero intero pseudo-casuale
''' </summary>
''' <remarks>Il numero intero generato ha un valore compreso nel <paramref name="rng">range</paramref></remarks>
''' <param name="rng">Range in cui è compreso il numero</param>
''' <returns>Un numero intero pseudo-casuale</returns>
Public Overloads Overrides Function NextInt(rng As Range) As Integer
'calcola nextint
NextInt = seed Mod (rng.Max + 1) + rng.Min
'scarta un numero
[Next]()
End Function
''' <summary>
''' Genera un SByte pseudo-casuale
''' </summary>
''' <remarks>Il numero generato è compreso tra -127 e 128</remarks>
''' <returns>Un SByte pseudo-casuale</returns>
Public Overrides Function NextSByte() As SByte
'calcola nextint
NextSByte = seed Mod (Byte.MaxValue + 1) + SByte.MinValue
'scarta un numero
[Next]()
End Function
''' <summary>
''' Genera un numero single pseudo-casuale
''' </summary>
''' <remarks>Il numero single generato è compreso tra 0.0 e 1.0</remarks>
''' <returns>Un numero single pseudo-casuale</returns>
Public Overrides Function NextSingle() As Single
'calcola nextint
NextSingle = seed / M
'scarta un numero
[Next]()
End Function
''' <summary>
''' Genera un numero intero pseudo-casuale
''' </summary>
''' <remarks>Il numero intero ha un valore compreso tra 0 e <see cref="UInt32.MaxValue">UInt32.MaxValue</see></remarks>
''' <returns>Un numero intero pseudo-casuale</returns>
Public Overrides Function NextUInt() As UInteger
'calcola nextint
NextUInt = seed Mod (UInteger.MaxValue + 1)
'scarta un numero
[Next]()
End Function
''' <summary>
''' Restituisce il numero decimale solo con i lowest-64bit
''' </summary>
''' <param name="num">Numero</param>
''' <returns>Il numero decimale solo con i lowest-64bit</returns>
Protected Shared Function Lowest64Bit(ByVal num As Decimal) As Decimal
'calcola gli interi del numero
Dim bits() As Integer = Decimal.GetBits(num)
'restituisce il nuovo decimale
Return New Decimal(bits(0), bits(1), 0, False, 0)
End Function
End Class
![C# / VB.NET - [VB.NET] implementazione LCG Random fallito](/data/logos/logositov9.png)
